home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / mpp.lha / mpp / src / Scanner.md < prev    next >
Text File  |  1992-08-18  |  394b  |  17 lines
  1. (* $Id: Scanner.md,v 1.3 1992/08/11 13:28:33 grosch rel $ *)
  2.  
  3. DEFINITION MODULE Scanner;
  4.  
  5. FROM Positions    IMPORT tPosition;
  6.  
  7. TYPE tScanAttribute    = RECORD Position: tPosition; Ch: CHAR; END;
  8.  
  9. VAR Attribute    : tScanAttribute;
  10.  
  11. PROCEDURE BeginScanner;
  12. PROCEDURE CloseScanner;
  13. PROCEDURE GetToken (): CARDINAL;
  14. PROCEDURE ErrorAttribute (Symbol: CARDINAL; VAR Attribute: tScanAttribute);
  15.  
  16. END Scanner.
  17.